home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Tech Arsenal 1
/
Tech Arsenal (Arsenal Computer).ISO
/
tek-06
/
segue.exe
/
NSPLLPT.PRG
< prev
next >
Wrap
Text File
|
1991-10-28
|
1KB
|
42 lines
*.............................................................................
*
* Program Name: NSPLLPT.PRG Copyright: HRF Associates, Inc.
* Date Created: 10/28/11 Language: Clipper
* Time Created: 22:54:40 Author: Bob Fogle
*
*.............................................................................
* Supplemental SEGUE function for setting local LPT number to be captured by spooler.
* Functionally equivilent to N_SPLLPT function in NETLIB library except it provides
* for 4 server printers instead of 99.
*
FUNCTION NSPLLPT_
*Purpose : To specify the local LPT number to be captured by spooler.
*Usage : NSPLLPT_([<expN1>])
* :
* Where : <expN1> = LPT number [1..3]
* :
PARAMETERS lptno
LOCAL mlptno
PRIVATE rtn :=0
do while .t.
* Check to make sure passed variable types are correct.
if valtype(lptno)<>'N' .AND. lptno<>nil
rtn = -101
exit
endi
* Set up defaults
mlptno = if(valtype(lptno)=='N',lptno,0)
mlptno = if(mlptno=0,1,mlptno) // Treat zero as one.
* Get/Set lptno (form) number
if pcount()=0 // If no arguments, return current setting.
rtn = PRLCDFG() // Get Default LPT Device
else
rtn = PRLCDFS(mlptno) // Set Default LPT Device
endi
exit
endd
RETURN rtn